home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / COMPOUND.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  3.1 KB  |  76 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************  COMPOUND INTEREST COMPUTER $$$$$  **********************
  3. 12  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 14  'OPEN                   BASIC COMPOUND INTEREST PROGRAM                       OPEN
  5. 16  'OPEN     This program will quickly display the annual compounded value of    OPEN
  6. 18  'OPEN  a sum at the end of each year -- compounded monthly. Do not use comma  OPEN
  7. 20  'OPEN  when entering initial dollar amount. Enter interest as whole number.   OPEN
  8. 22  'OPEN  MAXIMUM NUMBER OF YEARS IS 30.  To increase, change DIM statements in  OPEN
  9. 24  'OPEN  line 120 accordingly.  This program may be used without license or     OPEN
  10. 26  'OPEN  attribution. (c) G I N A C O --  1983          Ver 5.1/160/320         OPEN
  11. 28  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  12. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  13. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  14. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  15. 70   SCREEN 0,0,0
  16. 80    WIDTH 80
  17. 90     CLEAR
  18. 100      FOR I! = 1 TO 10
  19. 110         KEY I!,""
  20. 120        NEXT
  21. 130  ' ** VALUE OF X PRINCIPAL AFTER Y YEARLY PERIODS (COMPOUNDED MONTHLY) **
  22. 140  DIM PR!(30),MP1!(30),MP2!(30),MP3!(30),MP4!(30),MP5!(30),MP6!(30)
  23. 150   DIM MP7!(30),MP8!(30),MP9!(30),MP10!(30),MP11!(30),MP12!(30)
  24. 160    S$ = "$#,###,###.##"
  25. 170  CLS
  26. 180   LOCATE 10,20
  27. 190    INPUT "AMOUNT OF PRINCIPAL (NO COMMAS) ",X!
  28. 200     LOCATE 12,20
  29. 210      INPUT "NUMBER OF YEARS ",Y!
  30. 220       LOCATE 14,20
  31. 230        INPUT "ANNUAL PERCENTAGE (WHOLE NUMBER) ",Z!
  32. 240         PR!(1) = X!
  33. 250          AI! = ((Z!) * 0.01) / 12
  34. 260           FOR I! = 1 TO Y!
  35. 270              MP1!(I!) = (PR!(I!) * AI!) + PR!(I!)
  36. 280               MP2!(I!) = (MP1!(I!) * AI!) + MP1!(I!)
  37. 290    MP3!(I!) = (MP2!(I!) * AI!) + MP2!(I!)
  38. 300     MP4!(I!) = (MP3!(I!) * AI!) + MP3!(I!)
  39. 310      MP5!(I!) = (MP4!(I!) * AI!) + MP4!(I!)
  40. 320       MP6!(I!) = (MP5!(I!) * AI!) + MP5!(I!)
  41. 330        MP7!(I!) = (MP6!(I!) * AI!) + MP6!(I!)
  42. 340         MP8!(I!) = (MP7!(I!) * AI!) + MP7!(I!)
  43. 350          MP9!(I!) = (MP8!(I!) * AI!) + MP8!(I!)
  44. 360           MP10!(I!) = (MP9!(I!) * AI!) + MP9!(I!)
  45. 370            MP11!(I!) = (MP10!(I!) * AI!) + MP10!(I!)
  46. 380    MP12!(I!) = (MP11!(I!) * AI!) + MP11!(I!)
  47. 390     PR!(I! + 1) = MP12!(I!)
  48. 400    NEXT
  49. 410     CLS
  50. 420      LOCATE 2,30
  51. 430       PRINT "MONTHLY "
  52. 440        LOCATE 3,10
  53. 450         PRINT "COMPOUNDING $"X!"FOR "Y!"YEARS AT"Z!"PERCENT"
  54. 460          LOCATE 5,10
  55. 470           PRINT "YEAR    BEGINING PRINCIPAL     ENDING PRINCIPAL"
  56. 480            LOCATE 6,10
  57. 490  PRINT "====    ==================     ================"
  58. 500   PRINT
  59. 510    FOR I! = 1 TO Y!
  60. 520       PRINT TAB( 10)I!;
  61. 530        PRINT TAB( 22) USING S$;PR!(I!);
  62. 540         PRINT TAB( 44) USING S$;PR!(I! + 1);
  63. 550        NEXT
  64. 560         PRINT
  65. 570          PRINT
  66. 580           PRINT
  67. 590            PRINT TAB( 18)"<ENTER 1> FOR ANOTHER COMPUTATION"
  68. 600  PRINT TAB( 18)"<ENTER 2> TO LEAVE PROGRAM"
  69. 610   PRINT
  70. 620    PRINT TAB( 35)"";
  71. 630     INPUT X!
  72. 640      ON X! GOTO 170,650
  73. 650  END
  74. 65000  '*********************** SAVE ROUTINE **********************************
  75. 65100  SAVE "B:COMPOUND.BAS"
  76.